home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 84
/
Tiger_Disk_084_20xx_Tiger-Crew-Disk_de_Side_D.d64
/
a tomz sprite...
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
33 lines
1 rem *done for -ozsi- in 1997
2 rem * by tomz/tide/tdr/uturn.
9 poke 53280,0:poke53281,0:print""
10 print"[147]":fori=0to63:poke832+i,0:next
20 gosub 60000
999 poke198,0:wait198,1:poke198,0:print"[145][145]":end
60000 data"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
60001 data"[209][209] [209][209]"
60002 data"[209][209] [209][209][209] [209][209] [209][209][209] [209][209][209][209][209] [209]"
60003 data"[209] [209][209] [209] [209] [209] [209] [209] [209]"
60004 data"[209] [209][209] [209] [209] [209] [209] [209][209][209][209] [209][209]"
60005 data"[209] [209][209] [209] [209] [209] [209] [209] [209][209]"
60006 data"[209] [209][209][209] [209][209] [209][209][209][209] [209][209][209][209][209] [209]"
60007 data"[209][209] [209][209]"
60008 data"[209][209][209] [209][209][209][209][209] [209][209] [209][209] [209][209][209]"
60009 data"[209][209][209][209] [209][209] [209][209] [209][209][209][209] [209][209][209][209]"
60010 data"[209][209][209][209] [209][209][209][209][209] [209][209] [209][209][209][209]"
60011 data"[209][209][209] [209][209] [209][209] [209][209] [209][209][209]"
60012 data"[209][209] [209][209][209][209][209] [209][209] [209][209]"
60013 data"[209] [209]"
60014 data"[209][209][209][209][209][209] [209][209] [209] [209] [209][209][209][209][209] [209]"
60015 data"[209] [209] [209] [209] [209][209] [209][209] [209][209] [209]"
60016 data"[209] [209] [209] [209] [209] [209] [209] [209][209] [209]"
60017 data"[209] [209] [209] [209] [209] [209] [209][209] [209]"
60018 data"[209][209] [209] [209] [209] [209] [209] [209][209] [209][209]"
60019 data"[209][209] [209] [209][209] [209] [209] [209][209][209][209][209][209][209]"
60020 data"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
60100 v=53248:pokev,200:pokev+1,100:pokev+21,1:pokev+39,14:poke2040,13
60110 fori=0to20 :reada$:fork=0to2:t=0:forj=0to7:b=0
60140 if mid$(a$,j+k*8+1,1)="[209]"then b=1
60150 t=t+b*2^(7-j):next:printt;:poke832+i*3+k,t:next:print:next
60200 return